Осуществляет поиск файлов и каталогов на текущем устройстве.

Первое обращение к функции должно иметь вид:

File$ = DIR$(Wildcard$,Attr%)

где Wildcard$ - это путь доступа и спецификация отыскиваемых файлов, а Attr% - это необязательный аргумент, задающий атрибуты этих файлов. Параметр Attr% должен быть суммой одного или нескольких следующих кодов:

0	Список только обычных файлов.
2	Список обычных и скрытых файлов.
4	Список обычных и системных файлов.
8	Список только имен томов.
16	Список имен подкаталогов и обычных файлов.

Если аргумент Attr% пропущен, то строится список только обычных файлов.

Функция производит в заданном (или текущем) каталоге поиск записи, содержимое которой совпадает с заданным именем файла и атрибутами. Если таких файлов не найдено, то возвращается пустая строка. Для поиска следующей записи, имя файла и атрибуты в которой совпадают с теми, которые были заданы при предыдущем обращении к процедуре, нужно вызвать функцию DIR следующим образом:

File$ = DIR$()

Функция будет продолжать поиск, пока не найдет все записи с заданным именем файла и атрибутами. Когда все файлы будут найдены, функция возвратит пустую строку. После этого данную функцию следует вызывать только с заданной строкой аргументов (wildcard ); в противном случае будет выдано сообщение об ошибке.

Пример:

 ‘ Распечатать все файлы и подкаталоги в  c:\gs

a$ = DIR$("c:\gs\*.*",16)
PRINT a$

WHILE (a$ <> "")
       a$ = DIR$()
       PRINT a$
WEND